MacFormat 1994 November

home *** CD-ROM | disk | FTP | other *** search

/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Comet.3.0.7 folder / ibm-host-software / MAC7171.COPY < prev next >

Wrap

Text File | 1988-06-30 | 56.8 KB | 719 lines | [TEXT/MPS ]

*---------------------------------------------------------------------* 00001000 * * 00002000 * MODULE NAME = MAC71 - UPDATE FOR Rice Univ 7171 * 00003000 * mod from MAC71MOD - UPDATE FOR PRINCETON 7171 * 00004000 * * 00005000 * DESCRIPTIVE NAME = 7171 HOST ASSEMBLED TEXT - UPDATE FOR PUCC NEEDS.* 00006000 * * 00007000 * COPYRIGHT = HOST LOADED YALE ASCII COMMUNICATIONS SYSTEM, * 00008000 * 5798-RRJ (C) YALE UNIVERSITY 1984 * 00009000 * REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 * 00010000 * * 00011000 * NON-COMMERCIAL USE AND DISTRIBUTION IS ALLOWED PROVIDED THAT THE * 00012000 * ABOVE COPYRIGHT STATEMENT IS REPRODUCED, ALONG WITH THIS RESTRICTION, 00013000 * ON EACH COPY AND THAT COPIES OF FUNCTIONAL ENHANCEMENTS ARE SENT TO * 00014000 * YALE UNIVERSITY COMPUTER CENTER, PO BOX 2112, NEW HAVEN, CT. 06520 * 00015000 * OR TO WILLAMS@YALEVM ON BITNET. * 00016000 * * 00017000 * FUNCTION = * 00018000 * * 00019000 * THIS COPY FILE CONTAINS THE DEFINITIONS OF MACROS REQUIRED * 00020000 * TO GENERATE A TERMINAL DEFINITION TABLE (TDT) ON A S/370 HOST. * 00021000 * THIS FILE HAS TO BE INCLUDED INTO A MACRO LIBRARY WHICH WILL * 00022000 * BE USED DURING AN ASSEMBLY OF A TDT SOURCE FILE. * 00023000 * * 00024000 * PROCESSOR = S/370 ASSEMBLER * 00025000 * * 00026000 * STATUS = VERSION 1, RELEASE 1 * 00027000 * * 00028000 * 851121 jln Fix comma in Copyright; Comment out ROM equates * 00029000 * 860311 jln Add new 7171 E.C. Functions; minor cleanup * 00030000 *---------------------------------------------------------------------* 00031000 * 00032000 * INLINE MACROS 00033000 MACRO 00034000 TERMTYPS &DUMMY 00035000 .*------------------------------------------------------------* 00036000 .* MACRO NAME = TERMTYPS * 00037000 .* DESCRIPTION = GENERATE LIST OF VALID TERMINAL TYPES * 00038000 .*------------------------------------------------------------* 00039000 GBLB &TYPSDEF 00040000 GBLC &CNAME(500),&CVAL(500) 00041000 GBLA &CI,&HITS(500),&CX 00042000 GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00043000 LCLA &I,&J,&N 00044000 LCLC &HEX,&C 00045000 AIF (&TYPSDEF).LOOP 00046000 RITTERM DS 0H 00047000 &TYPSDEF SETB (1) 00048000 .LOOP ANOP 00049000 &I SETA &I+1 00050000 AIF ('&SYSLIST(&I)' EQ '+').ELINE 00051000 AIF ('&SYSLIST(&I)' EQ '-').EDISP 00052000 AIF ('&SYSLIST(&I)' EQ '%').ECONT 00053000 AIF ('&SYSLIST(&I)' EQ '').DONE 00054000 &N SETA K'&SYSLIST(&I) 00055000 &J SETA 1 00056000 &HEX SETC '' 00057000 .NAMELP AIF (&J GT &N).GENNAME 00058000 &C SETC '&SYSLIST(&I)'(&J,1) 00059000 CNLOC &C,&CHARNAM 00060000 &HEX SETC '&HEX.&CVAL(&CX)' 00061000 &J SETA &J+1 00062000 AGO .NAMELP 00063000 .GENNAME ANOP 00064000 &HEX SETC '&HEX.2020202020202020'(1,16) 00065000 DC XL8'&HEX' 00066000 DC Y(&SYSLIST(&I)) 00067000 AGO .LOOP 00068000 .DONE DC H'0' 00069000 .ECONT MEXIT *+860311: Continue function added 00070000 .ELINE DC H'-1' 00071000 MEXIT 00072000 .EDISP DC H'-2' 00073000 MEXIT 00074000 MEND , 00075000 MACRO 00076000 &LAB EADSTERM &IPT,&OPT,&ORIGIN=BLANK,&FLAGS=X'0080', X00077000 &HTRN=HTRAN,&TTRN=TTRAN,&RCHRS=EADSRCHS,&DELAY=0, X00078000 &SGR=EADSSGR,&PROW=0,&PCOL=0,&LROW=0,&LCOL=0, X00079000 &APROW=0,&APCOL=0,&ALROW=0,&ALCOL=0 00080000 .*+860311: P&L ROW/COLS added; default Flags ch/0/X'0080' jln 00081000 .*------------------------------------------------------------* 00082000 .* MACRO NAME = EADSTERM * 00083000 .* DESCRIPTION = GENERATE TERMINAL CONTROL DATA * 00084000 .*------------------------------------------------------------* 00085000 GBLA &EADSCSS,&EADSTRM 00086000 GBLC &CNAME(500),&CVAL(500) 00087000 GBLA &CI,&HITS(500),&CX 00088000 GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00089000 LCLA &I 00090000 LCLC &OPTX,&ORGVAL 00091000 &EADSTRM SETA &EADSTRM+1 00092000 &EADSCSS SETA 1 00093000 &OPTX SETC '&LAB+26' 860228: c/18/26/ 00094000 &I SETA 1 00095000 AIF ('&OPT' EQ '').OKOPT 00096000 &OPTX SETC '&OPT+26' 860228: c/18/26/ 00097000 &I SETA 100 00098000 .OKOPT ANOP 00099000 &ORGVAL SETC '&ORIGIN' 00100000 AIF (T'&ORIGIN EQ 'N').ORGOK 00101000 CNLOC &ORGVAL,&CHARNAM 00102000 &ORGVAL SETC 'X''&CVAL(&CX)''' 00103000 .ORGOK ANOP 00104000 DS 0H ALIGNMENT 00105000 &LAB DC AL2(&FLAGS) STATUS FLAGS 00106000 DC Y(&IPT) INPUT TABLE OFFSET 00107000 DC Y(&OPTX) 00108000 DC AL1(&ORGVAL,0) CURSOR ADDRESSING BASE 00109000 DC Y(&HTRN) 00110000 DC Y(&TTRN) 00111000 DC Y(&RCHRS) 00112000 AIF (&DELAY EQ 0).NODEL 00113000 .* DC AL2(&DELAY/3+1) 00114000 DC AL1(&DELAY,0) 00115000 AGO .DELOK 00116000 .NODEL DC AL2(0) 00117000 .DELOK ANOP 00118000 DC Y(&SGR) 00119000 DC AL1(&PROW) +860228: Physical Rows 00120000 DC AL1(&PCOL) +860228: Physical Cols 00121000 DC AL1(&LROW) +860228: Logical Rows 00122000 DC AL1(&LCOL) +860228: Logical Cols 00123000 DC AL1(&APROW) +860228: Alt Phys Rows 00124000 DC AL1(&APCOL) +860228: Alt Phys Cols 00125000 DC AL1(&ALROW) +860228: Alt Logi Rows 00126000 DC AL1(&ALCOL) +860228: Alt Logi Cols 00127000 SPACE 2 00128000 .OPTLOOP ANOP 00129000 AIF (&I GE 20).OPTDONE 00130000 DC Y(@&EADSTRM.@&I) 00131000 &I SETA &I+1 00132000 AGO .OPTLOOP 00133000 .OPTDONE MEND 00134000 MACRO 00135000 &LAB EADSCSS &CH,&EQU= 00136000 .*------------------------------------------------------------* 00137000 .* MACRO NAME = EADSCSS * 00138000 .* DESCRIPTION = GENERATE ONE OUTPUT CTRL SEQUENCE * 00139000 .*------------------------------------------------------------* 00140000 GBLA &EADSCSS,&EADSTRM 00141000 GBLC &CNAME(500),&CVAL(500) 00142000 GBLA &CI,&HITS(500),&CX 00143000 GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00144000 LCLA &I,&J,&K 00145000 LCLC &P,&HEX,&C 00146000 &I SETA 2 00147000 AIF ('&CH' EQ 'CONTINUE').FIRST 00148000 AIF ('&CH' EQ 'XX').FIRST 00149000 &I SETA 1 00150000 &P SETC '@&EADSTRM.@&EADSCSS' 00151000 &EADSCSS SETA &EADSCSS+1 00152000 AIF ('&LAB' EQ '').FIRST 00153000 &P SETC '&LAB' 00154000 AGO .FIRST 00155000 .AGAIN ANOP 00156000 &I SETA &I+1 00157000 .FIRST ANOP 00158000 AIF ('&EQU' EQ '').NOTEQU 00159000 &P EQU &EQU 00160000 MEXIT 00161000 .NOTEQU ANOP 00162000 AIF (T'&SYSLIST(&I) EQ 'N').SELFDEF 00163000 AIF ('&SYSLIST(&I)' EQ '').EXIT 00164000 AIF ('&SYSLIST(&I)' EQ 'CONTINUE').SUSPEND 00165000 AIF ('&SYSLIST(&I)' EQ 'XX').SUSPEND 00166000 AIF ('&SYSLIST(&I)'(1,1) EQ '(').CALLER 00167000 AIF ('&SYSLIST(&I)'(1,1) EQ '''').STRNG 00168000 AIF ('&SYSLIST(&I)'(1,2) EQ 'IN').INNAME 00169000 CNLOC &SYSLIST(&I),&CHARNAM 00170000 &HEX SETC '&HEX.&CVAL(&CX)' 00171000 AGO .AGAIN 00172000 .CALLER ANOP 00173000 &J SETA K'&SYSLIST(&I)-2 00174000 &C SETC '&SYSLIST(&I)'(2,&J) 00175000 CNLOC &C,&FILLNAM 00176000 &HEX SETC '&HEX.&CVAL(&CX)' 00177000 AGO .AGAIN 00178000 .STRNG ANOP 00179000 &J SETA 2 00180000 .NXTCHR AIF (&J GE K'&SYSLIST(&I)).AGAIN 00181000 &C SETC '&SYSLIST(&I)'(&J,1) 00182000 &J SETA &J+1 00183000 CNLOC &C,&CHARNAM 00184000 &HEX SETC '&HEX.&CVAL(&CX)' 00185000 AGO .NXTCHR 00186000 .SELFDEF ANOP 00187000 &J SETA &SYSLIST(&I)/16+1 00188000 &K SETA &SYSLIST(&I)-&J*16+17 00189000 &C SETC '0123456789ABCDEF'(&J,1) 00190000 &HEX SETC '&HEX.&C'.'0123456789ABCDEF'(&K,1) 00191000 AGO .AGAIN 00192000 .INNAME ANOP 00193000 &J SETA K'&SYSLIST(&I)-2 00194000 &C SETC '&SYSLIST(&I)'(3,&J) 00195000 CNLOC &C,&CALLNAM 00196000 &HEX SETC '&HEX.&CVAL(&CX)' 00197000 AGO .AGAIN 00198000 .SUSPEND ANOP 00199000 &P DC X'&HEX' 00200000 MEXIT 00201000 .EXIT ANOP 00202000 &P DC X'&HEX.FF' 00203000 MEND 00204000 MACRO 00205000 &LAB EADSNODE &CH,&OP,&LINK,&PAR,&PARM=0 00206000 .*------------------------------------------------------------* 00207000 .* MACRO NAME = EADSNODE * 00208000 .* DESCRIPTION = GENERATE ONE INPUT PARSE SEQUENCE NODE * 00209000 .*------------------------------------------------------------* 00210000 GBLC &CNAME(500),&CVAL(500) 00211000 GBLA &CI,&HITS(500),&CX 00212000 GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00213000 LCLC &MATCH,&BYTE,&DEST,&P 00214000 LCLA &L 00215000 CNLOC &CH,&CHARNAM 00216000 &MATCH SETC '&CVAL(&CX)' 00217000 &P SETC '&PAR' 00218000 AIF (T'&PAR EQ 'N').POK 00219000 AIF ('&P' NE '').PCHK 00220000 &P SETC '&PARM' 00221000 AIF (T'&PARM EQ 'N').POK 00222000 .PCHK ANOP 00223000 &L SETA K'&P-2 00224000 AIF (&L LE 0).PPFK 00225000 AIF ('&P'(1,2) NE 'IN').PPFK 00226000 &P SETC '&P'(3,&L) 00227000 CNLOC &P,&CALLNAM 00228000 &P SETC 'X''&CVAL(&CX)''' 00229000 AGO .POK 00230000 .PPFK CNLOC &P,&PARMNAM 00231000 &P SETC 'X''&CVAL(&CX)''' 00232000 .POK ANOP 00233000 AIF ('&OP' NE 'GOTO').ISCALL 00234000 &LAB DC Y(X'&MATCH.00'+&P),Y(&LINK) 00235000 MEXIT 00236000 .ISCALL AIF ('&OP' NE 'CALL').ERR1 00237000 CNLOC &LINK,&CALLNAM,FAIL=OK 00238000 AIF (&CX EQ 1).TRYPFK 00239000 .* &LAB DC Y(X'&MATCH.00'+&P),X'00&CVAL(&CX)' 00240000 &LAB DC Y(X'&MATCH.00'+&P),X'&CVAL(&CX).00' 00241000 MEXIT 00242000 .TRYPFK CNLOC &LINK,&ATTNNAM 00243000 &LAB DC Y(X'&MATCH.&CVAL(&CX)',X'0200') 00244000 MEXIT 00245000 .ERR1 MNOTE 8,'SECOND PARAMETER NOT CALL OR GOTO' 00246000 &LAB DC AL2(0,0) 00247000 MEND 00248000 MACRO 00249000 CNDEF &NAM,&VAL 00250000 GBLC &CNAME(500),&CVAL(500) 00251000 GBLA &CI,&HITS(500) 00252000 &CI SETA &CI+1 00253000 &CVAL(&CI) SETC '&VAL' 00254000 AIF ('&NAM '(1,1) EQ '''').QUOTE 00255000 &CNAME(&CI) SETC '&NAM' 00256000 AIF (K'&NAM LE 6).OK 00257000 &CNAME(&CI) SETC '&NAM'(1,6) 00258000 .OK MEXIT 00259000 .QUOTE ANOP 00260000 &CNAME(&CI) SETC '&NAM'(2,1) 00261000 MEND 00262000 MACRO 00263000 CNLOC &NAM,&START,&FAIL=MSG 00264000 GBLC &CNAME(500),&CVAL(500) 00265000 GBLA &CI,&HITS(500),&CX 00266000 LCLA &I 00267000 LCLC &C 00268000 &I SETA &START 00269000 &C SETC '&NAM' 00270000 AIF (K'&NAM LE 6).TEST 00271000 &C SETC '&NAM'(1,6) 00272000 .TEST AIF ('&CNAME(&I)' EQ '').NOFIND 00273000 AIF ('&CNAME(&I)' EQ '&C').FIND 00274000 &I SETA &I+1 00275000 AGO .TEST 00276000 .FIND ANOP 00277000 &CX SETA &I 00278000 &HITS(&CX) SETA &HITS(&CX)+1 00279000 MEXIT 00280000 .NOFIND ANOP 00281000 AIF ('&FAIL' EQ 'OK').NOMSG 00282000 MNOTE 8,'CHARACTER/NAME "&C" NOT FOUND' 00283000 .NOMSG ANOP 00284000 &CX SETA 1 00285000 MEND 00286000 MACRO 00287000 CNDMP 00288000 GBLC &CNAME(500),&CVAL(500) 00289000 GBLA &CI,&HITS(500) 00290000 LCLA &I 00291000 &I SETA 1 00292000 .REPORT MNOTE *,'&CNAME(&I) - &CVAL(&I) - &HITS(&I)' 00293000 &I SETA &I+1 00294000 AIF (&I LE &CI).REPORT 00295000 MEND 00296000 MACRO 00297000 &LAB EADSDATA &X 00298000 &LAB DC X'&X' 00299000 MEND 00300000 .*------------------------------------------------------------* 00301000 TITLE 'EADPCOMN - DEFINE ALL SYMBOLS' 00302000 GBLC &CNAME(500),&CVAL(500) 00303000 GBLA &CI 00304000 GBLA &CHARNAM,&FILLNAM,&CALLNAM,&PARMNAM,&ATTNNAM 00305000 * *----------------------------------------------------* 00306000 * * ASCII CHARACTER NAMES AND VALUES * 00307000 * *----------------------------------------------------* 00308000 CNDEF BOZO,FF ERROR 00309000 &CHARNAM SETA 2 00310000 CNDEF ESC,1B 00311000 CNDEF \,1B 00312000 CNDEF SEQENDER,FF 00313000 CNDEF OTHERS,FE 00314000 CNDEF INDEX,F8 00315000 CNDEF MATCH,FA 00316000 CNDEF TABULATE,FC 00317000 CNDEF 0,30 00318000 CNDEF 1,31 00319000 CNDEF 2,32 00320000 CNDEF 3,33 00321000 CNDEF 4,34 00322000 CNDEF 5,35 00323000 CNDEF 6,36 00324000 CNDEF 7,37 00325000 CNDEF 8,38 00326000 CNDEF 9,39 00327000 CNDEF A,41 00328000 CNDEF B,42 00329000 CNDEF C,43 00330000 CNDEF D,44 00331000 CNDEF E,45 00332000 CNDEF F,46 00333000 CNDEF G,47 00334000 CNDEF H,48 00335000 CNDEF I,49 00336000 CNDEF J,4A 00337000 CNDEF K,4B 00338000 CNDEF L,4C 00339000 CNDEF M,4D 00340000 CNDEF N,4E 00341000 CNDEF O,4F 00342000 CNDEF P,50 00343000 CNDEF Q,51 00344000 CNDEF R,52 00345000 CNDEF S,53 00346000 CNDEF T,54 00347000 CNDEF U,55 00348000 CNDEF V,56 00349000 CNDEF W,57 00350000 CNDEF X,58 00351000 CNDEF Y,59 00352000 CNDEF Z,5A 00353000 CNDEF BLANK,20 00354000 CNDEF ' ',20 00355000 CNDEF NULL,00 00356000 CNDEF DEL,7F 00357000 CNDEF SOH,01 00358000 CNDEF STX,02 00359000 CNDEF ETX,03 00360000 CNDEF EOT,04 00361000 CNDEF ENQ,05 00362000 CNDEF WRU,05 00363000 CNDEF ACK,06 00364000 CNDEF BEL,07 00365000 CNDEF BS,08 00366000 CNDEF HT,09 00367000 CNDEF TAB,09 00368000 CNDEF LF,0A 00369000 CNDEF LINEFEED,0A 00370000 CNDEF VT,0B 00371000 CNDEF FF,0C 00372000 CNDEF FORMFEED,0C 00373000 CNDEF CR,0D 00374000 CNDEF SO,0E 00375000 CNDEF SI,0F 00376000 CNDEF DLE,10 00377000 CNDEF DC1,11 00378000 CNDEF XON,11 00379000 CNDEF DC2,12 00380000 CNDEF DC3,13 00381000 CNDEF XOFF,13 00382000 CNDEF DC4,14 00383000 CNDEF NAK,15 00384000 CNDEF SYN,16 00385000 CNDEF ETB,17 00386000 CNDEF CAN,18 00387000 CNDEF EM,19 00388000 CNDEF SUB,1A 00389000 CNDEF ESCAPE,1B 00390000 CNDEF FS,1C 00391000 CNDEF GS,1D 00392000 CNDEF RS,1E 00393000 CNDEF US,1F 00394000 CNDEF COLON,3A 00395000 CNDEF SEMI,3B 00396000 CNDEF LESS,3C 00397000 CNDEF EQUAL,3D 00398000 CNDEF GREATER,3E 00399000 CNDEF QUESTION,3F 00400000 CNDEF AT,40 00401000 CNDEF LBRACK,5B 00402000 CNDEF BSLASH,5C 00403000 CNDEF RBRACK,5D 00404000 CNDEF UPARROW,5E 00405000 CNDEF UNDER,5F 00406000 CNDEF ACCENT,60 00407000 CNDEF |,7C 00408000 CNDEF !,21 00409000 CNDEF ",22 00410000 CNDEF #,23 00411000 CNDEF $,24 00412000 CNDEF %,25 00413000 CNDEF &&,26 00414000 CNDEF '''',27 00415000 CNDEF '(',28 00416000 CNDEF ')',29 00417000 CNDEF *,2A 00418000 CNDEF +,2B 00419000 CNDEF ',',2C 00420000 CNDEF -,2D 00421000 CNDEF '.',2E 00422000 CNDEF /,2F 00423000 CNDEF :,3A 00424000 CNDEF ;,3B 00425000 CNDEF <,3C 00426000 CNDEF =,3D 00427000 CNDEF >,3E 00428000 CNDEF ?,3F 00429000 CNDEF @,40 00430000 CNDEF [,5B 00431000 CNDEF ],5D 00432000 CNDEF ~,5E 00433000 CNDEF _,5F 00434000 CNDEF a,61 00435000 CNDEF b,62 00436000 CNDEF c,63 00437000 CNDEF d,64 00438000 CNDEF e,65 00439000 CNDEF f,66 00440000 CNDEF g,67 00441000 CNDEF h,68 00442000 CNDEF i,69 00443000 CNDEF j,6A 00444000 CNDEF k,6B 00445000 CNDEF l,6C 00446000 CNDEF m,6D 00447000 CNDEF n,6E 00448000 CNDEF o,6F 00449000 CNDEF p,70 00450000 CNDEF q,71 00451000 CNDEF r,72 00452000 CNDEF s,73 00453000 CNDEF t,74 00454000 CNDEF u,75 00455000 CNDEF v,76 00456000 CNDEF w,77 00457000 CNDEF x,78 00458000 CNDEF y,79 00459000 CNDEF z,7A 00460000 CNDEF {,7B 00461000 CNDEF },7D 00462000 CNDEF ^,7E 00463000 CNDEF SPACE,20 00464000 CNDEF EXCLAIM,21 00465000 CNDEF DQUOTE,22 00466000 CNDEF POUND,23 00467000 CNDEF DOLLAR,24 00468000 CNDEF PERCENT,25 00469000 CNDEF AND,26 00470000 CNDEF QUOTE,27 00471000 CNDEF LPAREN,28 00472000 CNDEF RPAREN,29 00473000 CNDEF STAR,2A 00474000 CNDEF ASTERISK,2A 00475000 CNDEF PLUS,2B 00476000 CNDEF COMMA,2C 00477000 CNDEF HYPHEN,2D 00478000 CNDEF MINUS,2D 00479000 CNDEF PERIOD,2E 00480000 CNDEF DOT,2E 00481000 CNDEF SLASH,2F 00482000 CNDEF @0,30 00483000 CNDEF @1,31 00484000 CNDEF @2,32 00485000 CNDEF @3,33 00486000 CNDEF @4,34 00487000 CNDEF @5,35 00488000 CNDEF @6,36 00489000 CNDEF @7,37 00490000 CNDEF @8,38 00491000 CNDEF @9,39 00492000 CNDEF LCA,61 00493000 CNDEF LCB,62 00494000 CNDEF LCC,63 00495000 CNDEF LCD,64 00496000 CNDEF LCE,65 00497000 CNDEF LCF,66 00498000 CNDEF LCG,67 00499000 CNDEF LCH,68 00500000 CNDEF LCI,69 00501000 CNDEF LCJ,6A 00502000 CNDEF LCK,6B 00503000 CNDEF LCL,6C 00504000 CNDEF LCM,6D 00505000 CNDEF LCN,6E 00506000 CNDEF LCO,6F 00507000 CNDEF LCP,70 00508000 CNDEF LCQ,71 00509000 CNDEF LCR,72 00510000 CNDEF LCS,73 00511000 CNDEF LCT,74 00512000 CNDEF LCU,75 00513000 CNDEF LCV,76 00514000 CNDEF LCW,77 00515000 CNDEF LCX,78 00516000 CNDEF LCY,79 00517000 CNDEF LCZ,7A 00518000 CNDEF LBRACE,7B 00519000 CNDEF BAR,7C 00520000 CNDEF RBRACE,7D 00521000 CNDEF TILDE,7E 00522000 CNDEF NONE,FF 00523000 CNDEF , 00524000 * *----------------------------------------------------* 00525000 * * PUTCSS ROUTINE NAME * 00526000 * *----------------------------------------------------* 00527000 CNDEF BINX,FE 00528000 &FILLNAM SETA &CI 00529000 CNDEF BINY,FC 00530000 CNDEF CHARX,FA 00531000 CNDEF CHARY,F8 00532000 CNDEF USERX,F6 00533000 CNDEF USERY,F4 00534000 CNDEF DELAY,F2 00535000 CNDEF HARDCO,F0 00536000 CNDEF BINFLD,EE 00537000 CNDEF CHARFL,EC 00538000 CNDEF , 00539000 * *----------------------------------------------------* 00540000 * * EADSNODE CALL ROUTINE NAMES * 00541000 * *----------------------------------------------------* 00542000 CNDEF NULL,00 SOUND ALARM (IGNORE SEQUENCE) 00543000 &CALLNAM SETA &CI 00544000 CNDEF ECHO,01 NORMAL ECHO 00545000 CNDEF ATTN,02 ATTENTION GENERATING 00546000 CNDEF LEFT,03 CURSOR LEFT 00547000 CNDEF RIGHT,04 CURSOR RIGHT 00548000 CNDEF UP,05 CURSOR UP 00549000 CNDEF DOWN,06 CURSOR DOWN 00550000 CNDEF INSRT,07 TOGGLE INSERT MODE 00551000 CNDEF LPRT,08 ECHO BACK LOCAL PRINT SEQUENCE 00552000 CNDEF DELETE,09 DELETE CHARACTER 00553000 CNDEF TAB,0A FIELD TAB 00554000 CNDEF NL,0B NEWLINE 00555000 CNDEF EEOF,0C ERASE EOF 00556000 CNDEF HOME,0D HOME 00557000 CNDEF RESHOW,0E REDISPLAY SCREEN CONTENTS 00558000 CNDEF BTAB,0F FIELD BACKTAB 00559000 CNDEF DEFER,10 DEFERRED KEY EXECUTE 00560000 CNDEF CURSEL,11 CURSOR SELECT (EMULATE LIGHT PEN) 00561000 CNDEF EINP,12 ERASE INPUT 00562000 CNDEF DPFM,13 SPECIAL CHAR (DUP, FM, ETC.) 00563000 CNDEF APLON,14 APL MODE ON 00564000 CNDEF APLOFF,15 ASCII INPUT IN APL MODE 00565000 CNDEF APLEND,16 APL MODE OFF 00566000 CNDEF SETTAB,17 SET COLUMN TAB 00567000 CNDEF CLRTAB,18 DELETE ALL COLUMN TABS AND LEFT MARGIN 00568000 CNDEF SETMRG,19 SET LEFT MARGIN 00569000 CNDEF DELTAB,1A DELETE COLUMN TAB 00570000 CNDEF SETHOM,1B SET HOME LINE 00571000 CNDEF COLTAB,1C COLUMN TAB 00572000 CNDEF COLBAK,1D COLUMN BACKTAB 00573000 CNDEF INDENT,1E INDENT LEFT MARGIN 00574000 CNDEF UNDENT,1F UNDENT LEFT MARGIN 00575000 CNDEF SET,20 SET MODE OF OPERATION 00576000 CNDEF RESET,21 RESET MODE OF OPERATION 00577000 CNDEF PCON,22 RESTORE PACING 00578000 CNDEF PCOFF,23 SUPPRESS PACING 00579000 CNDEF DIAL,24 DIAL HOST 00580000 CNDEF DISC,25 KEYBOARD INITIATED LINE DROP 00581000 CNDEF INIT,26 RETURN TO ENTER TERMINAL TYPE MESSAGE 00582000 CNDEF ALTK,27 ALTERNATE KEYBOARD ARRANGEMENT (DVORAK) 00583000 CNDEF MULT,28 Mult Key Input Seq +860311 00584000 CNDEF RUBOUT,2C Destructive Backspace +860311 00585000 CNDEF PGUP,2F Logical Page Up +860311 00586000 CNDEF PGDN,30 Logical Page Down +860311 00587000 CNDEF , 00588000 CNDEF DUP,80 00589000 &PARMNAM SETA &CI 00590000 CNDEF FM,7F 00591000 CNDEF PA1,01 00592000 &ATTNNAM SETA &CI 00593000 CNDEF PA2,02 00594000 CNDEF PA3,03 00595000 CNDEF CLEAR,04 00596000 CNDEF PA4,05 00597000 CNDEF TREQ,06 00598000 CNDEF ENTER,0A 00599000 CNDEF PFK1,0B 00600000 CNDEF PFK2,0C 00601000 CNDEF PFK3,0D 00602000 CNDEF PFK4,0E 00603000 CNDEF PFK5,0F 00604000 CNDEF PFK6,10 00605000 CNDEF PFK7,11 00606000 CNDEF PFK8,12 00607000 CNDEF PFK9,13 00608000 CNDEF PFK10,14 00609000 CNDEF PFK11,15 00610000 CNDEF PFK12,16 00611000 CNDEF PFK13,17 00612000 CNDEF PFK14,18 00613000 CNDEF PFK15,19 00614000 CNDEF PFK16,1A 00615000 CNDEF PFK17,1B 00616000 CNDEF PFK18,1C 00617000 CNDEF PFK19,1D 00618000 CNDEF PFK20,1E 00619000 CNDEF PFK21,1F 00620000 CNDEF PFK22,20 00621000 CNDEF PFK23,21 00622000 CNDEF PFK24,22 00623000 CNDEF PFK25,23 00624000 CNDEF PFK26,24 00625000 CNDEF PFK27,25 00626000 CNDEF PFK28,26 00627000 CNDEF PFK29,27 00628000 CNDEF PFK30,28 00629000 CNDEF PFK31,29 00630000 CNDEF PFK32,2A 00631000 CNDEF PFK33,2B 00632000 CNDEF PFK34,2C 00633000 CNDEF PFK35,2D 00634000 CNDEF PFK36,2E 00635000 CNDEF , 00636000 PRINT ON 00637000 TITLE '7171 - PROGRAM HEADER' 00638000 IBM7171 CSECT 00639000 @7171 EQU IBM7171 00640000 ORG IBM7171+X'300' 00641000 * 00642000 *--------------------------------------------------------------------* 00643000 * THE FOLLOWING EQU'S WHICH START X'8YYY' ARE INDIRECT ADDRESS 00644000 * THE OTHERS ARE ABSOLUTE ADDRESS AND MAY CHANGE WITH THE ROM 00645000 * OR THE MACHINE. THE TRANSLATE TABLE VECTORS AND THE TERM 00646000 * TABLE ADDRESS ARE USED ABSOLUTE TO SAVE STORAGE SPACE IN RAM. 00647000 *--------------------------------------------------------------------* 00648000 NONE EQU X'FF' 00649000 .* Comment out any ROM Terminal Names which you may wish to redefine 00650000 .* and/or rename these equate(s) 00651000 $IBM3101 EQU X'8000'+@7171 00652000 $TVI912 EQU X'8002'+@7171 00653000 $TVI920 EQU X'8003'+@7171 00654000 $TVI950 EQU X'8004'+@7171 00655000 *TVI950R EQU X'8005'+@7171 00656000 *ADM31 EQU X'8006'+@7171 00657000 *ADM3A EQU X'8007'+@7171 00658000 $VT100 EQU X'8008'+@7171 00659000 *DM1520 EQU X'8009'+@7171 00660000 *DM1521 EQU X'800A'+@7171 00661000 *DM3045 EQU X'800B'+@7171 00662000 TYPETERM EQU X'800C'+@7171 00663000 $HARDCPY EQU X'800D'+@7171 00664000 PLOTTER EQU X'800E'+@7171 00665000 $IBM316X EQU X'8011'+@7171 00666000 ROLM3270 EQU X'8012'+@7171 00667000 * ROM MISC EQUATES 00668000 *RCHRS EQU X'8021'+@7171 00669000 *QWERTY1 EQU X'8022'+@7171 00670000 *QWERTY2 EQU X'8023'+@7171 00671000 *QWERTY3 EQU X'8024'+@7171 00672000 *BITMATCH EQU X'8025'+@7171 00673000 *TYPPFK EQU X'8026'+@7171 00674000 *FUNCPFK EQU X'8028'+@7171 00675000 *FUNBPFK EQU X'8029'+@7171 00676000 *FUNCX EQU X'802A'+@7171 00677000 *FUNCA EQU X'802B'+@7171 00678000 *RSETCHAR EQU X'802C'+@7171 00679000 *SETCHAR EQU X'802D'+@7171 00680000 *SETMTCH EQU X'802E'+@7171 00681000 *COMSET EQU X'802F'+@7171 00682000 *SGR EQU X'8030'+@7171 00683000 *DM3SGR EQU X'8031'+@7171 00684000 *ADM31ATR EQU X'8032'+@7171 00685000 *ADM31MOD EQU X'8033'+@7171 00686000 *IBM3101I EQU X'8035'+@7171 00687000 *IBMESC EQU X'8037'+@7171 00688000 *DM1520I EQU X'803C'+@7171 00689000 *DMESC EQU X'803E'+@7171 00690000 *DM3045I EQU X'8040'+@7171 00691000 *VT100I EQU X'8047'+@7171 00692000 *VTE EQU X'8049'+@7171 00693000 *VTPFKS EQU X'8053'+@7171 00694000 *ADM3AI EQU X'8055'+@7171 00695000 *A3AESC EQU X'8057'+@7171 00696000 *ADM31I EQU X'8058'+@7171 00697000 *A31ESC EQU X'805B'+@7171 00698000 *TVIDI EQU X'805F'+@7171 00699000 *TVDSOH EQU X'8060'+@7171 00700000 *TVII EQU X'8063'+@7171 00701000 *TVIESC EQU X'8066'+@7171 00702000 *TPTMI EQU X'806A'+@7171 00703000 *HCPYI EQU X'806D'+@7171 00704000 TTRAN EQU X'8070'+@7171 00705000 HTRAN EQU X'8071'+@7171 00706000 *HR77 EQU X'8072'+@7171 00707000 *HRDA EQU X'8073'+@7171 00708000 *HW77 EQU X'8074'+@7171 00709000 *HWDA EQU X'8075'+@7171 00710000 .* How PUCC did their xlate vector: 00711000 *HW3278 EQU X'49aa'+@7171 00712000 *HW3278AT EQU X'49aa'+@7171 00713000 *HW3278ES EQU X'49aa'+@7171 00714000 *HR3278 EQU X'49aa'+@7171 00715000 *HR3278AT EQU X'49aa'+@7171 00716000 *HR3278ES EQU X'49aa'+@7171 00717000 .* E-O-MAC71 COPY 00718000